NEW  BeginBatch method

Begins collection of a batch of documents to register in the Publisher queue.

Syntax

Function BeginBatch (vaultId)

Remarks

This method must be called in the _Initialize event procedure of a custom command, similar to the following example. If this is not done, then the RegisterDocument method registers documents in the queue individually.

If any document is registered more than once, the options described in Configuring a Meridian Enterprise application server will determine the disposition of the batch.

Example

Sub TestPublisher_Execute(Batch)
  On Error Resume Next
  'Create the script object.
  Set Publisher = New PublisherScriptObject  
  'Register the selected document for publishing.
  Call Publisher.Queue.RegisterDocument("", "1B4423", Document.ID, , , , , ,"")
  'Release the script object.
  Set Publisher = Nothing   
  If Err.Number <> 0 Then  
   WinMsgBox "Publish failed: " +  Err.Description
      Err.Clear 
  End If
End Sub


Sub TestPublisher_Initialize(Batch)
  'Create the script object.
  Set Publisher = New PublisherScriptObject  
  'Initialize batch operation.
  Call Publisher.Queue.BeginBatch
  'Release the script object.
  Set Publisher = Nothing 
End Sub

Sub TestPublisher_Terminate(Batch)
  On Error Resume Next
  'Create the script object.
  Set Publisher = New PublisherScriptObject  
  'Initialize batch operation.
  Call Publisher.Queue.CommitBatch
  'Release the script object.
  Set Publisher = Nothing 
  If Err.Number <> 0 Then  
   WinMsgBox "Publish failed: " +  Err.Description
      Err.Clear       
  End If  
End Sub